home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / start.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1995-02-27  |  661 b   |  27 lines
  1. on startMovie
  2.   global fh
  3.   set the searchCurrentFolder to 0
  4.   if the machineType = 256 then
  5.     set file to FileIO(mnew, "read", "config.cfg")
  6.     if objectp(file) then
  7.       beep()
  8.       beep()
  9.       set trang to word 1 of file(mReadLine)
  10.       set the searchPath to [the pathName, trang & ":\bugs\"]
  11.       file(mdispose)
  12.     else
  13.       beep()
  14.       set the searchPath to [the pathName & "bugs\"]
  15.     end if
  16.     exit
  17.   else
  18.     set the searchPath to [the pathName & "bugs:", "How Many Bugs?:bugs:"]
  19.   end if
  20.   set the searchCurrentFolder to 0
  21.   if not objectp(fhider) then
  22.     set fh to FinderHider(mnew)
  23.   end if
  24.   fh(mShowBorder, 1)
  25.   fh(mUpdateBorder)
  26. end
  27.